www.gusucode.com > 搜索动力2010 v4.9 > 搜索动力2010 v4.9\code\m\search.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="config.asp"-->
<!--#include file="../synchron.asp"-->
<%
search=""&request("search")&""
want=""&request("want")&""
searchencode=Server.URLEncode(search)
%>
<%
url="http://"&serverline&"/zxsou/m/2010_asp_search.asp?want="&want&"&webmaster="&webmaster&"&search="&searchencode&""
Html=GetPage(url)
getsearch=GetContent(Html,"<!--search top-->","<!--search bottom-->",0)
%><?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=Server.Htmlencode(name)%>_<%=Server.Htmlencode(search)%></title>
<style type="text/css">
<%sysdate=year(dateadd("h",timediff,now()))&"-"&month(dateadd("h",timediff,now()))&"-"&day(dateadd("h",timediff,now()))%>
<%if bespeak_check="true" and cstr(bespeak_time)=cstr(sysdate) then%>
<%Server.Execute "../skin/"&bespeak_skin&"/mobile.css"%>
<%else%>
<%Server.Execute "../skin/"&skin&"/mobile.css"%>
<%end if%>
</style>
</head>
<body>
<h1><a href="./"><%=Server.Htmlencode(name)%></a></h1>
<h2><%=Server.Htmlencode("搜索内容:")%></h2>
<form method="get" action="./search.asp">
<p><input type="text" name="search" value="<%=Server.Htmlencode(search)%>"><input type="hidden" name="want" value="<%=want%>"><input type="submit" value="<%=Server.Htmlencode("搜")%>"></p>
<%=getsearch%>
<a href="./"><%=Server.Htmlencode("返回首页")%></a>
<p>
<%=dateadd("h",timediff,now())%>
</p>
</body>
</html>